home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / grafix / misc / ami2d_2_0.lha / ami2d_dist / ami2d / rexx / procbar.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-19  |  1.5 KB  |  81 lines
  1. /*
  2. @Node Header
  3. @Next Macro
  4.  
  5. Code:       procbar.rexx
  6. Author:     Russell Leighton
  7. Revision:   16 Feb 1994
  8.  
  9. Comments:
  10.  
  11. This  script  is  used  by ami2d.rexx to setup the button window for result
  12. processing operations.  It is only required by ami2d.rexx and should not be
  13. executed  as  a  standalone  script.  It does, however, serve as an example
  14. script for rexxbar.
  15.  
  16. @EndNode
  17. @Node Macro
  18. */
  19.  
  20. options results
  21.  
  22. address command
  23. if ~show('ports',"RXB_AMI2D") then do
  24.     'run ami2d:bin/rexxbar -hRXB_AMI2D -pAMI2D'
  25.     'waitforport RXB_AMI2D'
  26. end
  27. else address rxb_ami2d 'close'
  28.  
  29. address rxb_main 'open'
  30. parse var result ix iy iw ih
  31. ix = -iw
  32. iy = ih
  33. ih = -200
  34.  
  35. address rxb_ami2d
  36.  
  37. address ami2d 'info'
  38. parse var result nnodes nelems ngrps nsoln nres
  39.  
  40. if nsoln = 0 then do
  41.     'open('ix','iy','iw','ih',AMI2D,process,"ami2d:rexx/movebar")'
  42.     exit
  43. end
  44.  
  45. address ami2d 'get funs'
  46.  
  47. results = result
  48.  
  49. do while length(results) ~= 0
  50.     result1 = subword(results,1,1)
  51.     'cycle(0,'result1',ami2d:macros/process/range)'
  52.     'cycle(1,'result1')'
  53.     results = subword(results,2)
  54. end
  55. 'radio(2,node)'
  56. 'radio(2,ave)'
  57. 'radio(2,intg)'
  58.  
  59. 'button(3,fill,ami2d:macros/process/fillres)'
  60. 'button(4,plot,ami2d:macros/process/plotres)'
  61.  
  62. 'radio(5,max)'
  63. 'radio(5,min)'
  64. 'radio(5,ave)'
  65. 'radio(5,num)'
  66. 'cycle(6,1)'
  67. 'cycle(6,2)'
  68. 'cycle(6,3)'
  69. 'cycle(6,4)'
  70. 'cycle(6,5,ami2d:macros/process/switch)'
  71.  
  72. 'text(7,range:)'
  73. 'string(8,0)'
  74. 'string(9,0)'
  75.  
  76. 'open('ix','iy','iw','ih',AMI2D,process,"ami2d:rexx/movebar")'
  77. 'text(7,range:)'
  78.  
  79. call 'ami2d:macros/process/range'
  80. exit
  81.